Tech Arsenal 1/Tech Arsenal (Arsenal Computer).ISO/tek-06/segue.exe/BDSUP.PRG

Text File | 1991-09-23 | 9KB | 435 lines

*.............................................................................
*   Program Name: bdsup.PRG         Copyright: HRF Associates, Inc.
*   Date Created: 06/10/91           Language: Clipper
*   Time Created: 16:35:50             Author: Bob Fogle
*.............................................................................
mTIT =  " SEGUE SUPPLEMENT, BINDERY DEMO "
@ 01,(79-len(mTIT))/2 SAY mTIT
bcnt=13
msup=1
PRIVATE  mCHOICE, mPROC, mPROMPT[bcnt], mAPI[bcnt]
mPROMPT[1]   = "Exit"
mAPI[1]      = "Return to Menu"
mPROMPT[2]   = "USRAD_"
mAPI[2]      = "SSBD Add User"
mPROMPT[3]   = "USRDL_"
mAPI[3]      = "SSBD Delete User"
mPROMPT[4]   = "USRSLST_"
mAPI[4]      = "SSBD List Users"
mPROMPT[5]   = "USRGRPLST_"
mAPI[5]      = "SSBD List User's Groups"
mPROMPT[6]   = "USRINGRP_"
mAPI[6]      = "SSBD Is User In Group"
mPROMPT[7]   = "GRPAD_"
mAPI[7]      = "SSBD Add Group"
mPROMPT[8]   = "GRPDL_"
mAPI[8]      = "SSBD Delete Group"
mPROMPT[9]   = "GRPSLST_"
mAPI[9]      = "SSBD List Groups"
mPROMPT[10]  = "GRPUSRLST_"
mAPI[10]     = "SSBD List Group's Users"
mPROMPT[11]  = "GRPUSRAD_"
mAPI[11]     = "SSBD Add User To Group"
mPROMPT[12]  = "GRPUSRDL_"
mAPI[12]     = "SSBD Delete User From Group"
mPROMPT[13]  = "SUPLST_"
mAPI[13]     = "SSBD List Users w/Supervisor Security"

do mdisp

MENU TO mCHOICE
DO CASE
  CASE mCHOICE = 0 .or. mCHOICE = 1
    end_flag=.T.
  CASE mCHOICE =  2
    DO USRAD
  CASE mCHOICE =  3
    DO USRDL
  CASE mCHOICE =  4
    DO USRSLST
  CASE mCHOICE =  5
    DO USRGRPLST
  CASE mCHOICE =  6
    DO USRINGRP
  CASE mCHOICE =  7
    DO GRPAD
  CASE mCHOICE =  8
    DO GRPDL
  CASE mCHOICE =  9
    DO GRPSLST
  CASE mCHOICE = 10
    DO GRPUSRLST
  CASE mCHOICE = 11
    DO GRPUSRAD
  CASE mCHOICE = 12
    DO GRPUSRDL
  CASE mCHOICE = 13
    DO SUPLST
ENDCASE
LCHOICE=mCHOICE
RETURN

PROC USRAD   //2
LOCAL  mOBNM, mOBFNM, mPSWRD, RTN
rtn=0
do intro
mOBNM= "NEWUSER"+"                                 "
@ xx, 0 say "Enter User's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1
mOBFNM="NEWUSER FULL NAME GOES HERE"+"             "
@ xx, 0 say "Enter User's Full Name: " get mOBFNM
read
mOBFNM  = ltri(rtri(mOBFNM))
xx=xx+1
mPSWRD="SECRET"+"                                  "
@ xx, 0 say "Enter User's Password:  " get mPSWRD
read
mPSWRD  = ltri(rtri(mPSWRD))
xx=xx+1

rtn = USRAD_(mOBNM, mOBFNM, mPSWRD)
do chkrtnum with rtn
return

PROC USRDL //3
LOCAL  mOBNM, RTN
rtn=0
do intro
mOBNM= "NEWUSER"+"                                 "
@ xx, 0 say "Enter User's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1

rtn = USRDL_(mOBNM)
do chkrtnum with rtn
return

PROCEDURE USRSLST    //4
LOCAL  mUSRNM[0], mUSRSY[0],rtn
OK=.T.
rtn=0
do intro
xx=row()
mUSRJNM=space(46)
@ xx, 0 say "Please enter User Search String (wildcard OK): " get mUSRJNM
read
xx=xx+1
rtn = USRSLST_(mUSRJNM,@mUSRNM,@mUSRSY)
do chkrtnum3 with rtn
if .not. OK
  return
endi

@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRNM)
  if xx=5
    @ xx,  yy say "Cnt User Name                Scty "
    @ xx+1,yy say "=== ======================== ===="
    xx=xx+2
  endi
  @ xx,  yy    say trans(i,"###")
  @ xx,  yy+4  say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
  @ xx,  yy+29 say trans(mUSRSY[i],"XXXX")
  xx=xx+1
  if xx=23
    xx=5
    if yy=0
      yy=yy+43
    else
      yy=0
      @ 23,0
      @ 23,0 say "Press any key to continue..."
      inkey(0)
      @ 5,0 clear to 23,79
    endi
  endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return

PROCEDURE USRGRPLST    //5
LOCAL mUSRJNM, mUSRGRPNM[0]
OK=.T.
rtn=0
do intro
xx=row()
mUSRJNM=space(46)
@ xx, 0 say "Please enter User's Name (no wildcards): " get mUSRJNM
read
xx=xx+1
rtn = USRGRPLST_(mUSRJNM, @mUSRGRPNM)
do chkrtnum3 with rtn
if .not. OK
  return
endi

@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRGRPNM)
  if xx=5
    @ xx,  yy say "Cnt Group Name     "
    @ xx+1,yy say "=== ==============="
    xx=xx+2
  endi
  @ xx,  yy    say trans(i,"###")
  @ xx,  yy+4  say trans(mUSRGRPNM[i],"XXXXXXXXXXXXXX")
  xx=xx+1
  if xx=23
    xx=5
    if yy=0
      yy=yy+43
    else
      yy=0
      @ 23,0
      @ 23,0 say "Press any key to continue..."
      inkey(0)
      @ 5,0 clear to 23,79
    endi
  endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return

PROC USRINGRP //6
LOCAL  mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + "                                 "
@ xx, 0 say "Enter User's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + "                                 "
@ xx, 0 say "Enter Groups's Name:      " get mGPNM
read
mGPNM  = ltri(rtri(mGPNM))
xx=xx+1
rtn = USRINGRP_(mOBNM,mGPNM)
do chkrtnum4 with rtn
return

PROC GRPAD   //7
LOCAL  mOBNM, mOBFNM, mPSWRD, RTN
rtn=0
do intro
mOBNM= "NEWGROUP"+"                                 "
@ xx, 0 say "Enter Group's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1
mOBFNM="NEWGROUP FULL NAME GOES HERE"+"             "
@ xx, 0 say "Enter Groups's Full Name: " get mOBFNM
read
mOBFNM  = ltri(rtri(mOBFNM))
xx=xx+1

rtn = GRPAD_(mOBNM, mOBFNM)
do chkrtnum with rtn
return

PROC GRPDL   //8
LOCAL  mOBNM, RTN
rtn=0
do intro
mOBNM= "NEWGROUP"+"                                 "
@ xx, 0 say "Enter Groups's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1

rtn = GRPDL_(mOBNM)
do chkrtnum with rtn
return

PROCEDURE GRPSLST      //9
LOCAL  mGRPNM[0], mGRPSY[0]
OK=.T.
rtn=0
do intro
xx=row()
mGRPJNM=space(46)
@ xx, 0 say "Please enter Group Search String (wildcard OK): " get mGRPJNM
read
xx=xx+1
rtn = GRPSLST_(mGRPJNM,@mGRPNM,@mGRPSY)
do chkrtnum3 with rtn
if .not. OK
  return
endi

@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mGRPNM)
  if xx=5
    @ xx,  yy say "Cnt Group Name               Scty "
    @ xx+1,yy say "=== ======================== ===="
    xx=xx+2
  endi
  @ xx,  yy    say trans(i,"###")
  @ xx,  yy+4  say trans(mGRPNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
  @ xx,  yy+29 say trans(mGRPSY[i],"XXXX")
  xx=xx+1
  if xx=23
    xx=5
    if yy=0
      yy=yy+43
    else
      yy=0
      @ 23,0
      @ 23,0 say "Press any key to continue..."
      inkey(0)
      @ 5,0 clear to 23,79
    endi
  endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return

PROCEDURE GRPUSRLST       //10
LOCAL mGRPNM, mGRPUSRNM[0]
OK=.T.
rtn=0
do intro
xx=row()
mGRPNM=space(46)
@ xx, 0 say "Please enter Groups's Name (no wildcards): " get mGRPNM
read
xx=xx+1
rtn = GRPUSRLST_(mGRPNM, @mGRPUSRNM)
do chkrtnum3 with rtn
if .not. OK
  return
endi

@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mGRPUSRNM)
  if xx=5
    @ xx,  yy say "Cnt User Name"
    @ xx+1,yy say "=== ==============="
    xx=xx+2
  endi
  @ xx,  yy    say trans(i,"###")
  @ xx,  yy+4  say trans(mGRPUSRNM[i],"XXXXXXXXXXXXXX")
  xx=xx+1
  if xx=23
    xx=5
    if yy=0
      yy=yy+43
    else
      yy=0
      @ 23,0
      @ 23,0 say "Press any key to continue..."
      inkey(0)
      @ 5,0 clear to 23,79
    endi
  endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return

PROC GRPUSRAD   //11
LOCAL  mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + "                                    "
@ xx, 0 say "Enter User's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + "       "
@ xx, 0 say "Enter Groups's Name:      " get mGPNM
read
mGPNM  = ltri(rtri(mGPNM))
xx=xx+1
rtn = GRPUSRAD_(mOBNM, mGPNM)
do chkrtnum with rtn
return

PROC GRPUSRDL   //12
LOCAL  mOBNM, RTN
rtn=0
do intro
mOBNM= "SEGUE" + "                                    "
@ xx, 0 say "Enter User's Name:      " get mOBNM
read
mOBNM  = ltri(rtri(mOBNM))
xx=xx+1
mGPNM= "EVERYONE" + "       "
@ xx, 0 say "Enter Groups's Name:      " get mGPNM
read
mGPNM  = ltri(rtri(mGPNM))
xx=xx+1
rtn = GRPUSRDL_(mOBNM, mGPNM)
do chkrtnum with rtn
return

PROCEDURE SUPLST //13
LOCAL  mOBTYP, mUSRJNM, mUSRNM[0], mOBTP[0], rtn
OK=.T.
rtn=0
do intro
xx=row()
mOBTYP = 0
@ xx,  0 say "Please enter Object type: " get mOBTYP
read
xx=xx+1
mUSRJNM=space(46)
@ xx, 0 say "Please enter Object Search String (wildcard OK): " get mUSRJNM
read
xx=xx+1
rtn = SUPLST_(mOBTYP,mUSRJNM,@mUSRNM,@mOBTP)
*? rtn
*wait
do chkrtnum3 with rtn
if .not. OK
  return
endi

@ 5,0 clear to 23,79
xx=5
yy=0
for i = 1 to len(mUSRNM)
  if xx=5
    @ xx,  yy say "Cnt User Name                Type"
    @ xx+1,yy say "=== ======================== ===="
    xx=xx+2
  endi
  @ xx,  yy    say trans(i,"###")
  @ xx,  yy+4  say trans(mUSRNM[i],"XXXXXXXXXXXXXXXXXXXXXXXX")
  @ xx,  yy+30 say trans(mOBTP[i],"###")
  xx=xx+1
  if xx=23
    xx=5
    if yy=0
      yy=yy+43
    else
      yy=0
      @ 23,0
      @ 23,0 say "Press any key to continue..."
      inkey(0)
      @ 5,0 clear to 23,79
    endi
  endi
next
@ 23,0
@ 23,0 say "Press any key to return..."
inkey(0)
return